|
200
|
How can I add the Desktop folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}>"
|
|
199
|
How can I create my own favorites folders
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|C:\Temp><b>My Projects</b>|"
oExFileView.Expand("C:\Temp")
|
|
198
|
How can change the explore from folder (sample 2)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "C:\>"
|
|
197
|
How can change the explore from folder (sample 1)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "C:\"
|
|
196
|
Is it possible to include more system drives as root folders (sample 2)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "C:\>SYSTEM <off 4><b>1|D:\>SYSTEM <off 4><b>2|E:\>SYSTEM <off 4><b>3"
|
|
195
|
Is it possible to include more system drives as root folders (sample 1)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "C:\|D:\|E:\"
|
|
194
|
How can I include a system drive as a root folder, instead lists its content
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "C:\>"
|
|
193
|
How can I add the Desktop as a root folder (sample 3, rename, new display name, root)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}><sha ;;0>This <b>PC</b>"
oExFileView.Expand("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
|
|
192
|
How can I add the Desktop as a root folder (sample 2)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}>"
oExFileView.Expand("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
|
|
191
|
How can I add the Desktop as a root folder (sample 1)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = ">"
oExFileView.Expand("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
|
|
190
|
How can I browse the "Public" folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExploreFromHere = "::{4336a54d-038b-4685-ab02-99bb52d3fb8b}>"
|
|
189
|
How can I browse the "Libraries" folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExploreFromHere = "::{031E4825-7B94-4dc3-B131-E946B44C8DD5}>"
|
|
188
|
How can I browse the "HomeGroup" folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExploreFromHere = "::{B4FB3F98-C1EA-428d-A78A-D1F5659CBA93}>"
|
|
187
|
How can I browse the "Games" folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExploreFromHere = "::{ED228FDF-9EA8-4870-83b1-96b02CFE0D52}>"
|
|
186
|
How can I browse the "OneDrive" folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExploreFromHere = "::{018D5C66-4533-4307-9B53-224DE2ED1FE6}>"
|
|
185
|
How can I browse the "Control Panel" folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ColumnsVisible = 2
oExFileView.ExploreFromHere = "::{26EE0668-A00A-44D7-9371-BEB064C98683}"
oExFileView.EndUpdate()
|
|
184
|
How can I browse the "My Documents"
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.IncludeFilesInFolder = .t.
oExFileView.ExpandFolders = .t.
oExFileView.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}"
|
|
183
|
How can I hide all columns, and let just the Name being visible
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ColumnsVisible = 2
|
|
182
|
How can I browse the Printers and Faxes
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ColumnsVisible = 2
oExFileView.ExploreFromHere = "::{2227a280-3aea-1069-a2de-08002b30309d}"
|
|
181
|
How can I browse the Network Connections
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ColumnsVisible = 2
oExFileView.ExploreFromHere = "::{7007acc7-3202-11d1-aad2-00805fc1270e}"
oExFileView.EndUpdate()
|
|
180
|
Is it possible to specify a different selection color, while the control has no focus
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.HotBackColor = oExFileView.SelBackColor
oExFileView.HotForeColor = oExFileView.SelForeColor
oExFileView.Template = "Background(166) = 15790320" // oExFileView.Background(166) = 15790320
oExFileView.Template = "Background(167) = 65536" // oExFileView.Background(167) = 65536
oExFileView.EndUpdate()
|
|
179
|
Can I change the visual item's appearance as the mouse pointer passes/hovers over it
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABNACg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRVDiCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCKJUWAFFoVDCgZThGgJHomMIhBDHASQTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMILSgME6FABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dwiHQCIEhQDQmDOIZUmQZYDkIVRSmIEQ3lUGwbEIRQQh4ZpeEQGIMB0JZdkoc4XnqVB/k0CAGAKAJgEgFgGgGYBXnyVA5mCRQ4maA5NjgRJvgSTwoFYFoFmGCBmBqBphhgTJvDcIkFlWCJhmOLgmDoYoIiYKoKmKSI2C6CwiGOLJwgyTJ4lYAg8mOCI+DqDpjkiMJ0g+TJZAYN4OGOWQWEaCpjnOUhBDMZAzk4MYTmUCRGFKFJlEkRhJhKZJTjIWoWmWSR2F6F5mAmBhbhWZAoASdYZk6WYmGqGpmkmNhuhuZwJiidocmWCYaGcO4ngmZh6h6Z5JnYfofmeGZMnaHRNAoCgeiGaIKCaCoimiSgkneI5oEoPJ3DwaRKFaFolmmChmhqJppFOYoeiQaJ4mKIoomoSoWiaKZqgqDoeD4KBKi6KYrmsCpGDgPhrEqNoehIa4KmaOoumuSp2jqLQPhoEpAiCLBLBaRoxmyCwmkYPosksCo0jKLQLEaUocmyQ5qEuAomHOVoriCLYbE6Xoxm2OZMk6OJflOFJajmYwzkKQI6m6S42m6O5vAuJgRjyTY1Diao9k2G5mAiPpvkudp5DYZexGsa5AAQBCAg==")
oExFileView.DefaultItemHeight = 20
oExFileView.FullRowSelect = .t.
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.SelBackColor = 33528115
oExFileView.SelForeColor = 0
oExFileView.HotBackColor = 33541273
oExFileView.HotForeColor = oExFileView.SelForeColor
oExFileView.EndUpdate()
|
|
178
|
Can I change the item's background color as the mouse pointer passes/hovers over it
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.HotBackColor = 16764057
oExFileView.HotForeColor = oExFileView.SelForeColor
oExFileView.EndUpdate()
|
|
177
|
How do I programmatically select a folder, giving its full path
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Expand("C:\Windows\system32")
oExFileView.EndUpdate()
|
|
176
|
How do I programmatically select a folder, giving its relative path
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = ""
oExFileView.ExpandFolders = .t.
oExFileView.Expand("C:")
oExFileView.EndUpdate()
|
|
175
|
I've came to the situation that while I am using single-selection, I need to be able to select nothing, so no file/folder to be selected. It is possible
' Fired while the control's state has been changed.
function StateChange as v (State as OLE::Exontrol.ExFileView.1::StateChangeEnum)
oExFileView = topparent:CONTROL_ACTIVEX1.activex
? "Click and press CTRL to unselect the file/folder."
end function
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SingleSel = .t.
oExFileView.AllowSelectNothing = .t.
oExFileView.ExploreFromHere = ""
oExFileView.EndUpdate()
|
|
174
|
Is it possible to change the color of the selection as soon as the control is losing its focus
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SingleSel = .t.
oExFileView.ExploreFromHere = ""
oExFileView.Template = "Background(166) = 12895428" // oExFileView.Background(166) = 12895428
oExFileView.Template = "Background(167) = 65536" // oExFileView.Background(167) = 65536
oExFileView.EndUpdate()
|
|
173
|
Is it possible to hide the control's selecting when the control loses the focus
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SingleSel = .t.
oExFileView.ExploreFromHere = ""
oExFileView.HideSelection = .t.
oExFileView.EndUpdate()
|
|
172
|
Can I display the folder name only, without other information like size, type, modified...
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SelectOnRelease = .t.
oExFileView.IncludeParentLabel = "<b><%0%></b>, <fgcolor=808080>...A* folders only"
oExFileView.IncludeFolderFilter = "A*"
oExFileView.ExploreFromHere = "C:\Windows\"
oExFileView.BrowseFolderPath = "C:\Windows\addins"
oExFileView.DisplayFoldersInfo = .f.
oExFileView.FullRowSelect = .t.
oExFileView.EndUpdate()
|
|
171
|
Recently, I have noticed a small arrow in the right side of each folder, so the question is how can I get ride of that
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SelectOnRelease = .t.
oExFileView.SingleSel = .f.
oExFileView.ExploreFromHere = ""
oExFileView.IncludeSubFolderIconKey = 0
oExFileView.EndUpdate()
|
|
170
|
Can I select files/folders when user releases the mouse, rather than clicking it
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SelectOnRelease = .t.
oExFileView.SingleSel = .f.
oExFileView.ExploreFromHere = ""
oExFileView.EndUpdate()
|
|
169
|
I am using the IncludeParent property. Is there any option so I can display the parent label all the time, no matter if the control is vertically scrolled
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.IncludeFolders = .t.
oExFileView.ExpandFolders = .t.
oExFileView.IncludeParent = 2
oExFileView.EndUpdate()
|
|
168
|
How can I freeze the events, so no event is fired
' Fired while the control's state has been changed.
function StateChange as v (State as OLE::Exontrol.ExFileView.1::StateChangeEnum)
oExFileView = topparent:CONTROL_ACTIVEX1.activex
? "This will ne never fired, until FreezeEvents(False) is called."
end function
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.FreezeEvents(.t.)
oExFileView.SelectOnRelease = .t.
|
|
167
|
The focusing item does not get marked when selected
Dim oExFileView as P
Dim var_Appearance as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SingleSel = .f.
var_Appearance = oExFileView.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DYBg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJwNkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
oExFileView.SelBackColor = 16777216
oExFileView.SelForeColor = 0
oExFileView.ShowFocusRect = .t.
oExFileView.Template = "Background(19) = 1" // oExFileView.Background(19) = 1
oExFileView.EndUpdate()
|
|
166
|
Can I change the visual appearance of the focused item
Dim oExFileView as P
Dim var_Appearance as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.SingleSel = .f.
var_Appearance = oExFileView.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DYBg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJwNkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQHIMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSWJajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHKUggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4JEYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+TZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=")
var_Appearance.Add(3,"CP:2 -1 0 1 0")
oExFileView.SelBackColor = 16777216
oExFileView.SelForeColor = 0
oExFileView.Template = "Background(19) = 50331648" // oExFileView.Background(19) = 50331648
oExFileView.EndUpdate()
|
|
165
|
How do I check if an object is a file or folder
' Fired while the control's state has been changed.
function StateChange as v (State as OLE::Exontrol.ExFileView.1::StateChangeEnum)
Dim var_Object as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_Object = oExFileView.Get(2).Item(0)
end function
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.HasCheckBox = -1
oExFileView.EndUpdate()
|
|
164
|
How do I get the selected item
' Fired while the control's state has been changed.
function StateChange as v (State as OLE::Exontrol.ExFileView.1::StateChangeEnum)
oExFileView = topparent:CONTROL_ACTIVEX1.activex
? oExFileView.Get(0).Item(0)
end function
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFiles = .f.
oExFileView.Template = "ColumnVisible(`Size`) = False" // oExFileView.ColumnVisible("Size") = .f.
oExFileView.Template = "ColumnVisible(`Type`) = False" // oExFileView.ColumnVisible("Type") = .f.
oExFileView.Template = "ColumnVisible(`Modified`) = False" // oExFileView.ColumnVisible("Modified") = .f.
oExFileView.HeaderVisible = .f.
oExFileView.ExpandOnDblClk = .t.
oExFileView.AllowRename = .t.
oExFileView.EndUpdate()
|
|
163
|
How can I browse the "Recycle Bin" folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = "::{645FF040-5081-101B-9F08-00AA002F954E}"
|
|
162
|
How can I browse the "Documents" folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = "::{450D8FBA-AD25-11D0-98A8-0800361B1103}"
|
|
161
|
How can I browse the "Control Panel" folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = "::{21EC2020-3AEA-1069-A2DD-08002b30309d}"
oExFileView.Template = "ColumnVisible(`Size`) = False" // oExFileView.ColumnVisible("Size") = .f.
oExFileView.Template = "ColumnVisible(`Type`) = False" // oExFileView.ColumnVisible("Type") = .f.
oExFileView.Template = "ColumnVisible(`Modified`) = False" // oExFileView.ColumnVisible("Modified") = .f.
oExFileView.EndUpdate()
|
|
160
|
How can I simulate the tree part of Windows Explorer
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
oExFileView.ExpandFolders = .t.
oExFileView.IncludeFiles = .f.
oExFileView.Template = "ColumnVisible(`Size`) = False" // oExFileView.ColumnVisible("Size") = .f.
oExFileView.Template = "ColumnVisible(`Type`) = False" // oExFileView.ColumnVisible("Type") = .f.
oExFileView.Template = "ColumnVisible(`Modified`) = False" // oExFileView.ColumnVisible("Modified") = .f.
oExFileView.HeaderVisible = .f.
oExFileView.ExpandOnDblClk = .t.
oExFileView.EndUpdate()
|
|
159
|
How can I browse the Network folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = "::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
|
|
158
|
How can I browse the My Computer
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
|
|
157
|
How can I browse the My Network Places folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = "::{208D2C60-3AEA-1069-A2D7-08002B30309D}"
|
|
156
|
How can I browse the Desktop folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.ExploreFromHere = "::{00021400-0000-0000-C000-000000000046}"
|
|
155
|
Does your control supports scrolling by touching the screen
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.AutoDrag = 4112 'exAutoDragScrollOnShortTouch + exAutoDragScroll
|
|
154
|
Do you have any Fit-To-Page options when printing the control
Dim oExFileView as P
Dim var_FileType as P
Dim var_Print as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .t.
var_FileType.StrikeOut = .t.
var_FileType.Apply()
oExFileView.EndUpdate()
var_Print = OLE.Create("Exontrol.Print")
var_Print.Options = "FitToPage = On"
var_Print.PrintExt = oExFileView
var_Print.Preview()
|
|
153
|
Is it possible to expand all folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.ExploreFromHere = "C:\Program Files\Microsoft.NET"
oExFileView.ExpandFolders = .t.
oExFileView.Expand("*")
oExFileView.EndUpdate()
|
|
152
|
How can I provide my own context menu
' Fired while the control's state has been changed.
function StateChange as v (State as OLE::Exontrol.ExFileView.1::StateChangeEnum)
oExFileView = topparent:CONTROL_ACTIVEX1.activex
? "State "
? State
? "ContextMenu"
? oExFileView.ShowContextMenu
oExFileView.ShowContextMenu = "Item 1[id=1][def],Item 2[id=2],[sep][id=3],Popup[id=4](Item 3[id=5],Item 4[id=6])"
? "ExecuteContextMenu"
? oExFileView.ExecuteContextMenu
end function
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
|
|
151
|
Is it possible to prevent executing a specific command from the object's context menu
' Fired while the control's state has been changed.
function StateChange as v (State as OLE::Exontrol.ExFileView.1::StateChangeEnum)
oExFileView = topparent:CONTROL_ACTIVEX1.activex
? "State "
? State
? "ContextMenu"
? oExFileView.ShowContextMenu
? "ExecuteContextMenu"
? oExFileView.ExecuteContextMenu
oExFileView.ExecuteContextMenu = 0
end function
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
|
|
150
|
How can I disable the Delete command from the object's context menu
' Fired while the control's state has been changed.
function StateChange as v (State as OLE::Exontrol.ExFileView.1::StateChangeEnum)
oExFileView = topparent:CONTROL_ACTIVEX1.activex
? "State "
? State
? "ContextMenu"
? oExFileView.ShowContextMenu
oExFileView.ShowContextMenu = oExFileView.FormatABC("value replace `&Delete` with `&Delete[dis]`",oExFileView.ShowContextMenu)
end function
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
|
|
149
|
How can I change the label to be displayed in the parent folder
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.IncludeParent = .t.
oExFileView.IncludeParentLabel = "<b><%0%>"
oExFileView.ExploreFromHere = "C:\"
oExFileView.BrowseFolderPath = "C:\Temp"
|
|
148
|
How can I change the +/- button's images (method 2)
Dim oExFileView as P
Dim var_Appearance as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
var_Appearance = oExFileView.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BCwCg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoHEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZkH+eg9D4TxfhuRZeGGdwQH2PQTCmDpFFaKoVB+D5Xmed5pHoX44AWfR+F8UwVnEdpdkMMJKDIChygyIQpAoEh4iIJ5JlgTIcH+XoIFoEwnGEAh6A0KBgiMIICHdLgIlAM4MlKAIcCaIYIjYLoLGKIhqCcMxiSAJQ1A0IxEhsJgJFiPg+guI4yFYOA0GMWIUloNhNGIaIXCUI5CE4SwkEkchMhGCxlBkQIUCQZJZCiFIRk0aQVH8IBmAOBJeDcZJYmyFgnAmAhaGaCxmGmIhqhoZJZgiXYYAgFgCHQOYOFOEITCQCJpCyEoTVaNoACUZJiFCEoekiaZgmSHQXlYEh0DuDpTjCDQiEgchAg0IpJBoXoZiYKYqHaHAimkYguhMIZpAOMh0GEGBmg6JYqmkGowmyK4rAqNoyDsGg2BmCApCuAgNh8agrkqdYkGea4ChGCBAEAgIA==")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAEGg4BDACg6AADACAxRDAMgBQKAAzQFAYahmG6GAAGEZhYgmFgAQhFcZQSKUOQTDKMIziaQIRDINQlSTJcQjKKEUQTFiXIyAKKwEgmEQMQiCcbzXIUBxAAqXZZFUaKAg2Qg4TLBAzUTCQbR7HieQghGoqPpWF4gAhCJQGSYZaDqOQyRhkCC4DIITZkRbTUBiRSdWx8AAMIyiGpoJbudjyXg6V5OTblez9P7AMBvS6nKrhcp2PrhTSYWr+Gp5R7IMhyLI8Uw/DS/Yq1GDYIiuOoIQhCUD0LQ9EyXJqnaJnaC5aiuCT7VRjWDYFgFdTpQC8bZuGz7Trmd59XTadhYHSsAyNRDCL6tayLDxSZabZ5aOa6HoHEuJIxmOL50HgBAWgmDpEGGLJWAqbwPg+RZknOeY9D4XxfHmB5cEGdp0EyJg7BUWoqFQfY/B8f5PnOd5+H6IAHkyRR7l2NxwkwMoMgKHIjCgShCgSHgogmch2BAJwhDgVIfgUIQYDSHoCgoGAckgIIdkgFICDQDJjDSIAnAmI5+CqCpikiNgugqYhyGoJAzGIAgKCINQNCMRIbCYCRYj4PoPmOMhWDgNBjFiCJaDYTRiGiFwlCOQhOEsJBJHIThQhSJQZE4UAlAkGQ2EoJQkHMWhFF+SAZgSYQ3g2WQ2DsJYJkIYIWhmZpJioZ4aGaOYqE2GJNlmBIBGAJxjhiZQ5AkMhAg6nwpDaAglEkOgOgWIQoAmdIOh6DhJlkfRhWQOJtDsCJSCSBwkXSLIRiYaY6GqHInmmYguhgIppFIHoSDsJxmBGBhomoeo2hOK4OkqQoyiuaxDjGIxhhiAoSjoIJZnaIo+i+WhGH6OgpBiBAEIC")
oExFileView.HasCheckBox = 1
oExFileView.ExpandFolders = .t.
oExFileView.Template = "Background(180) = 16777216" // oExFileView.Background(180) = 16777216
oExFileView.Template = "Background(181) = 33554432" // oExFileView.Background(181) = 33554432
oExFileView.Indent = 19
oExFileView.EndUpdate()
|
|
147
|
How can I change the +/- button's images (method 1)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.LoadIconsKey = 1234
oExFileView.LoadIcons("gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BfeBf7ywj/dWHf7pxWJxeKdOMx+OyGTyWVxeHdWDwuBfb/zmaeWGxGWyON02l1GU0+izOE0Ofv9J1z/am1f6/3D/Xm73W83a83vA3/B4nD4283C/2m22ez2rU2+54/C33V6nX4vW6PK5+gf+xpGYf6V8j/QiEQr/Qfr9Xs9aD9vw9/x+nz+3s8/p8iV1n9/bzPQ+r3QG+UCQFAsEQA/TyvE8Cjsk/J/mOYZgn+YBel1CxeQyYENw1DkPQ7EERw/C0MQlCkFNUx8IwnCsLxJEUSxlGkQxtDkTxdFTJQcozJPmYhhOUW5aFif8iFlI5aSTJElSZJcnSjJsiSNILlPm0j6StJUjSnKEvSfMMpS/Ip/y3LDFx6orJEE9hjmIYZ/lmWBXTlOk7TrOc6ooik9TxP8/TfOM2vhLNCQlOFATvP1GUXR080fP9BH/Q8eTUoc2PYZRjmKf5WlUVFPVBUVQ0/UM+IhU1SVXVVN07SrV0PV1WVHVVbVrXFS1zVdZ1gx9L0wxZBTaf5mGUZB/lOUZQn+UhQk8f5RE+Ttok+TlUIhaVr2lalnWhZVmWNZFh0LWNiXFZNl2bZ9q2pbVq23a14Xbddv3VdFyMnYChTZYZ/mgZxmn+UBOE1bGD4RhGCYNgGBWGQUV0pf2G4HguE4vjGF3/gOJYhS19p/fuIGoaRon+TZMP5jGV2xlD+ZJk2H4jmWYZPlOWZwimXNpkuO31kGQ2FfxtGyax/k0S5KH/lJJn/pJI6cSeoYOS+pacSmoaZo+kn/omjZlQ2h6Lrela1p+o6hqu06ttWr6ySum6RpWvZ9j+gJ4yRA70f5wm8bul7hmxLH+ThMcHlHB4PxHCcNwXAabvu/70QOI8nvm/cfx3C8PxvF89xvN8drXIn/y27bunW872cxynIf5JkgR2rklzOtYPrWzEp2nYdl1nXdM1fLd91/Y9n2vA9x5HlabpPd+L4fgV/1CePFyx3Hadh/kaRJDn+SBGkWf5I/B8XyfH8Pz/L9Hye/8Pt+76/s8s8Xq73+Pte573zf39f+/U/99r+H4PYdK3tBr0ydmzPm/eBkBIGvZgeP+CME4CHzOaYWBcDoNQQg3BKDsFIOQhPobOBBOzPikhQeo86B4WH3QTC4+sK4UCkM8YKE8KRBwrhhDtA0PIXwyhSbCEpOSLA+JXEYjxICREkAASUlETicEQiHFMpxAQ")
oExFileView.HasCheckBox = -1
oExFileView.ExpandFolders = .t.
oExFileView.Template = "Background(180) = 1234" // oExFileView.Background(180) = 1234
oExFileView.Template = "Background(181) = 1235" // oExFileView.Background(181) = 1235
oExFileView.Indent = 19
oExFileView.EndUpdate()
|
|
146
|
How can I change the check box button's images (method 2)
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.LoadIconsKey = 1234
oExFileView.LoadIcons("gBJJgBAICAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1JJuBAGBJuDwWEw2FxGLw+Nws8xmKx2JymRyuCv9dy2byecyWfyk0z2X0Gj0eZqmWLmrADE1wAfexmuxfet15e3Gkluq1muYmw2U02m23+4L261FPyzJ5lF5jJ5Er5fNonP6PJpmW4dE4eWlna4MzYfjACi80t7uT7HrorR9wALXxABW+gAYv33fq9n7njb/wANWLj5vq+grAAMUEAAdcFpQ7z+KRBylQjBr9JUc8LgAMkNQA1hFQ9AcDQKAA+RI4DawnB6iRQo8VozFoADZGIADhGgAHDG6UFXHUQR4UkfAAacgwzDcUxYyZ8yQoskHy68KNBJaUExKQAHvKqYlvLEeREZsuSpK0iqMyxlzGosxmXJqNzFMigGDNoACxOEDwTBZ1zBMLJjBPIAOsnjrTyME0I0y0/z26idn7RFCug+ItAAP1Hx5O0VM7SjS0q3TENFS7TUuPtPAAeFQgAWNSTfOMRUlI1LVXTFLshTdYVZTKNRFVFU1upVbVxXdeK+iwfJXYCPJAkSSAAkqUWQnCIV6mxgAfZ6NkAA9po2A5B2ujYPnHbdtHGDwxo2h5+BncR/nwCaNh+eYYAHdR5hjdyNW2CZB28D5ho2B5hgeYNpWpZQAWeYAE3Mf5+4Mf6NoCA")
oExFileView.HasCheckBox = -1
oExFileView.ExpandFolders = .t.
oExFileView.Template = "Background(70) = 1234" // oExFileView.Background(70) = 1234
oExFileView.Template = "Background(71) = 1235" // oExFileView.Background(71) = 1235
oExFileView.EndUpdate()
|
|
145
|
Is it possible to show the entire line when selecting files or folders
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.FullRowSelect = .t.
|
|
144
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.Template = "ScrollPartVisible(0,65536) = True" // oExFileView.ScrollPartVisible(0,65536) = .t.
oExFileView.Template = "ScrollPartVisible(1,65536) = True" // oExFileView.ScrollPartVisible(1,65536) = .t.
oExFileView.Template = "ScrollPartVisible(2,65536) = True" // oExFileView.ScrollPartVisible(2 '2 + ,65536) = .t.
oExFileView.ScrollWidth = 4
oExFileView.Template = "Background(276) = 15790320" // oExFileView.Background(276) = 15790320
oExFileView.Template = "Background(260) = 8421504" // oExFileView.Background(260) = 8421504
oExFileView.ScrollHeight = 4
oExFileView.Template = "Background(404) = Background(276)" // oExFileView.Background(404) = oExFileView.Background(276)
oExFileView.Template = "Background(388) = Background(260)" // oExFileView.Background(388) = oExFileView.Background(260)
oExFileView.Template = "Background(511) = Background(276)" // oExFileView.Background(511) = oExFileView.Background(276)
oExFileView.EndUpdate()
|
|
143
|
How can I change the check box button's images (method 1)
Dim oExFileView as P
Dim var_Appearance as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
var_Appearance = oExFileView.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BgsHQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLyRB8QpyAytaBhRaaGwmSr3U7Oc50d69FYTIxcYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNped6NSDVcKxLgaa4fTrOZZzHL9HpviMWYBnWOr+kwJ4zlqY53CAZQ/B4GZzmab5qHyT4cDeDInkwPp8DCTI/h+Iw7nMZZhj4B5eGKL57gYGAgAadZoG8sgBgYfxKjcSRYCCYJGGYDoDmCQgNh0ZIZAaSB2gWYJ2F4FwdhsJpuBQfRiAWdQJEAQCAg")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAEGg4BVUMQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpAAWL4tCyNc7QHKFAxnAgaaLAAYRVjSH5OAADcI1FLUEyUf6sAArB74XiCIAIQiUBomGahajkMoYZAAaDCCI2a4aDZCIoVHalKgxC5oKSqCJqbptMZ/HrgJQYGRuC4NQ7CcDKDATbr9MZ9ZBCNZoPimEYtS7MMLQXK8QpyAytaBhRaaGwmSr3U7Oc50d69FYQXqvYZoCq1XBOGYMZLcNR3La9YYnBqMbRAeJYNpedy2YbkFC5LStHwbCrBVpxWotDxQjWVgrHYGI9iybhbiGUo+jafA6DKZxjkoVgxHoHR+iqXx2jMA52l8XJ/CMJ5TkaCp7nmOwHk+XovmECR8BWMYyAIHAgEOBgGFaSo4CWeQVgoSA0lOA5fEGEZQBSYRGBieYFlWMhiBoPZhkabI3geYIzDYIoHA8dxAH2CZYGMLgqHeW4zAYLgWCMB4gGIeoOjcQgJCqWBhgIOhvGKRhAn2D5blcWBaB+JBGi2EhWAgOQlhmEpYgiHB9DwJQCloUgWmUQoOFaEZXlaSB2haZJGF4WwdhsJRslmGJGDmFhYg8ZoHBiZYalCFAEIC")
oExFileView.HasCheckBox = 1
oExFileView.ExpandFolders = .t.
oExFileView.Template = "Background(70) = 16777216" // oExFileView.Background(70) = 16777216
oExFileView.Template = "Background(71) = 33554432" // oExFileView.Background(71) = 33554432
oExFileView.Template = "Background(72) = 47708146" // oExFileView.Background(72) = 47708146
oExFileView.EndUpdate()
|
|
142
|
Is it possible to displays only KB, MB, GB when case, so with no Bytes
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(5) = 14" // oExFileView.Option(5) = 14
|
|
141
|
Is it possible to displays Bytes, KB, MB, GB when case
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(5) = 15" // oExFileView.Option(5) = 15
|
|
140
|
Is it possible to displays Bytes combined with Mega-Bytes(MB) in the Size column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(5) = 5" // oExFileView.Option(5) = 5
|
|
139
|
Is it possible to displays Giga-Bytes(GB) only in the Size column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(5) = 8" // oExFileView.Option(5) = 8
|
|
138
|
Is it possible to displays Mega-Bytes(MB) only in the Size column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(5) = 4" // oExFileView.Option(5) = 4
|
|
137
|
Is it possible to displays Kilo-Bytes(KB) only in the Size column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(5) = 2" // oExFileView.Option(5) = 2
|
|
136
|
Is it possible to displays Bytes only in the Size column
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.Template = "Option(5) = 1" // oExFileView.Option(5) = 1
|
|
135
|
How can I simulate a go back or navigating to the parent folder
' Occurs when the user clicks the list.
function Click as v ()
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BrowseFolderPath = ".."
end function
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BrowseFolderPath = "C:\Program Files"
|
|
134
|
Does your control support runtime filter
Dim oExFileView as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.BeginUpdate()
oExFileView.Template = "ColumnFilterButton(`Name`) = True" // oExFileView.ColumnFilterButton("Name") = .t.
oExFileView.AddColumnCustomFilter("Name","All Project Files (*.sln, *.dsw)","*.sln|*.dsw")
oExFileView.AddColumnCustomFilter("Name","Solution Files (*.sln)","*.sln")
oExFileView.AddColumnCustomFilter("Name","Compatible Workspace Files (*.dsw)","*.dsw")
oExFileView.Template = "FilterBarDropDownWidth(`Name`) = -212" // oExFileView.FilterBarDropDownWidth("Name") = -212
oExFileView.Template = "ColumnFilterButton(`Type`) = True" // oExFileView.ColumnFilterButton("Type") = .t.
oExFileView.Template = "FilterBarDropDownWidth(`Type`) = -128" // oExFileView.FilterBarDropDownWidth("Type") = -128
oExFileView.Template = "ColumnFilterButton(`Modified`) = True" // oExFileView.ColumnFilterButton("Modified") = .t.
oExFileView.EndUpdate()
|
|
133
|
How can I reffer a folder or a file, without using the wild characters
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("TEMP")
var_FileType.HasPattern = .f.
var_FileType.Folder = .t.
var_FileType.Bold = .t.
var_FileType.Apply()
|
|
132
|
How do I change the text being diplayed in the Type column for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*.bat")
var_FileType.Folder = .f.
var_FileType.Type = "__newtype__"
var_FileType.Apply()
|
|
131
|
How do I change the text being diplayed in the Type column for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .f.
var_FileType.Type = "__newtype__"
var_FileType.Apply()
|
|
130
|
How do I change the text being diplayed in the Type column for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("W*")
var_FileType.Folder = .t.
var_FileType.Type = "__newtype__"
var_FileType.Apply()
|
|
129
|
How do I change the text being diplayed in the Type column for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .t.
var_FileType.Type = "__newtype__"
var_FileType.Apply()
|
|
128
|
How do I underline specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*.bat")
var_FileType.Folder = .f.
var_FileType.Underline = .t.
var_FileType.Apply()
|
|
127
|
How do I underline specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .f.
var_FileType.Underline = .t.
var_FileType.Apply()
|
|
126
|
How do I underline specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("W*")
var_FileType.Folder = .t.
var_FileType.Underline = .t.
var_FileType.Apply()
|
|
125
|
How do I underline specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .t.
var_FileType.Underline = .t.
var_FileType.Apply()
|
|
124
|
How do I draw as strikeout specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*.bat")
var_FileType.Folder = .f.
var_FileType.StrikeOut = .t.
var_FileType.Apply()
|
|
123
|
How do I draw as strikeout specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .f.
var_FileType.StrikeOut = .t.
var_FileType.Apply()
|
|
122
|
How do I draw as strikeout specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("W*")
var_FileType.Folder = .t.
var_FileType.StrikeOut = .t.
var_FileType.Apply()
|
|
121
|
How do I draw as strikeout specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .t.
var_FileType.StrikeOut = .t.
var_FileType.Apply()
|
|
120
|
How do I draw as italic specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*.bat")
var_FileType.Folder = .f.
var_FileType.Italic = .t.
var_FileType.Apply()
|
|
119
|
How do I draw as italic specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .f.
var_FileType.Italic = .t.
var_FileType.Apply()
|
|
118
|
How do I draw as italic specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("W*")
var_FileType.Folder = .t.
var_FileType.Italic = .t.
var_FileType.Apply()
|
|
117
|
How do I draw as italic specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .t.
var_FileType.Italic = .t.
var_FileType.Apply()
|
|
116
|
How do I bold specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*.bat")
var_FileType.Folder = .f.
var_FileType.Bold = .t.
var_FileType.Apply()
|
|
115
|
How do I bold specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .f.
var_FileType.Bold = .t.
var_FileType.Apply()
|
|
114
|
How do I bold specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("W*")
var_FileType.Folder = .t.
var_FileType.Bold = .t.
var_FileType.Apply()
|
|
113
|
How do I bold specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .t.
var_FileType.Bold = .t.
var_FileType.Apply()
|
|
112
|
How do I change the background color for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*.bat")
var_FileType.Folder = .f.
var_FileType.BackColor = 255
var_FileType.Apply()
|
|
111
|
How do I change the background color for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .f.
var_FileType.BackColor = 255
var_FileType.Apply()
|
|
110
|
How do I change the background color for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("W*")
var_FileType.Folder = .t.
var_FileType.BackColor = 255
var_FileType.Apply()
|
|
109
|
How do I change the background color for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .t.
var_FileType.BackColor = 255
var_FileType.Apply()
|
|
108
|
How do I change the foreground color for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*.bat")
var_FileType.Folder = .f.
var_FileType.ForeColor = 255
var_FileType.Apply()
|
|
107
|
How do I change the foreground color for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .f.
var_FileType.ForeColor = 255
var_FileType.Apply()
|
|
106
|
How do I change the foreground color for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("W*")
var_FileType.Folder = .t.
var_FileType.ForeColor = 255
var_FileType.Apply()
|
|
105
|
How do I change the foreground color for specified files or folders
Dim oExFileView as P
Dim var_FileType as P
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_FileType = oExFileView.FileTypes.Add("*")
var_FileType.Folder = .t.
var_FileType.ForeColor = 255
var_FileType.Apply()
|
|
104
|
How do I get the count of all items
Dim oExFileView as P
Dim var_Count as
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_Count = oExFileView.Get(3).Count
|
|
103
|
How do I get the count oc checked items
Dim oExFileView as P
Dim var_Count as
oExFileView = topparent:CONTROL_ACTIVEX1.activex
oExFileView.HasCheckBox = -1
var_Count = oExFileView.Get(2).Count
|
|
102
|
How do I get the count of all items
Dim oExFileView as P
Dim var_Count as
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_Count = oExFileView.Get(1).Count
|
|
101
|
How do I get the selected folder
Dim oExFileView as P
Dim var_Count as
oExFileView = topparent:CONTROL_ACTIVEX1.activex
var_Count = oExFileView.Get(0).Count
|